CAAIlluminatedFraction_MarsMagnitudeAA <-
function(r, Delta, i){
.Call("CAAIlluminatedFraction_MarsMagnitudeAA", r, Delta, i)
}
